home *** CD-ROM | disk | FTP | other *** search
/ MPEG Archives / MPEG Archives.iso / mpeg / files / unit1.dfm / unit1.txt < prev   
Encoding:
Text File  |  1996-12-28  |  3.6 KB  |  177 lines
  1. object Form1: TForm1
  2.   Left = 170
  3.   Top = 60
  4.   BorderIcons = []
  5.   BorderStyle = bsNone
  6.   Caption = 'Form1'
  7.   ClientHeight = 351
  8.   ClientWidth = 461
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   Position = poScreenCenter
  14.   OnCreate = FormCreate
  15.   PixelsPerInch = 96
  16.   TextHeight = 13
  17.   object Panel2: TPanel
  18.     Left = 0
  19.     Top = 0
  20.     Width = 461
  21.     Height = 351
  22.     Align = alClient
  23.     BevelInner = bvLowered
  24.     BorderWidth = 3
  25.     BorderStyle = bsSingle
  26.     Caption = 'Panel2'
  27.     TabOrder = 1
  28.     object Image2: TImage
  29.       Left = 5
  30.       Top = 5
  31.       Width = 447
  32.       Height = 337
  33.       Picture.Data = {<image000.bmp>}
  34.       OnMouseMove = Image2MouseMove
  35.     end
  36.     object Label2: TLabel
  37.       Left = 389
  38.       Top = 300
  39.       Width = 29
  40.       Height = 16
  41.       Caption = 'EXIT'
  42.       Font.Color = clGray
  43.       Font.Height = -13
  44.       Font.Name = 'Arial'
  45.       Font.Style = [fsBold]
  46.       ParentFont = False
  47.       Transparent = True
  48.       OnClick = Label2Click
  49.       OnMouseMove = Label2MouseMove
  50.     end
  51.     object Label1: TLabel
  52.       Left = 387
  53.       Top = 260
  54.       Width = 34
  55.       Height = 16
  56.       Caption = 'PLAY'
  57.       Font.Color = clGray
  58.       Font.Height = -13
  59.       Font.Name = 'Arial'
  60.       Font.Style = [fsBold]
  61.       ParentFont = False
  62.       Transparent = True
  63.       OnClick = Label1Click
  64.       OnMouseMove = Label1MouseMove
  65.     end
  66.     object Label3: TLabel
  67.       Left = 387
  68.       Top = 215
  69.       Width = 34
  70.       Height = 16
  71.       Caption = 'VIEW'
  72.       Font.Color = clGray
  73.       Font.Height = -13
  74.       Font.Name = 'Arial'
  75.       Font.Style = [fsBold]
  76.       ParentFont = False
  77.       Transparent = True
  78.       OnClick = Label3Click
  79.       OnMouseMove = Label3MouseMove
  80.     end
  81.     object Label4: TLabel
  82.       Left = 392
  83.       Top = 175
  84.       Width = 18
  85.       Height = 16
  86.       Caption = 'CD'
  87.       Font.Color = clGray
  88.       Font.Height = -13
  89.       Font.Name = 'Arial'
  90.       Font.Style = [fsBold]
  91.       ParentFont = False
  92.       Transparent = True
  93.       OnClick = Label4Click
  94.       OnMouseMove = Label4MouseMove
  95.     end
  96.     object Panel1: TPanel
  97.       Left = 8
  98.       Top = 8
  99.       Width = 105
  100.       Height = 105
  101.       BevelOuter = bvNone
  102.       Caption = 'Panel1'
  103.       Color = clBlack
  104.       TabOrder = 0
  105.       object Image1: TImage
  106.         Left = 0
  107.         Top = 0
  108.         Width = 105
  109.         Height = 105
  110.         Hint = 'Left-->Slow down; Right-->Speed up ...'
  111.         Center = True
  112.         ParentShowHint = False
  113.         ShowHint = True
  114.         OnMouseDown = Image1MouseDown
  115.       end
  116.     end
  117.     object Panel3: TPanel
  118.       Left = 22
  119.       Top = 134
  120.       Width = 129
  121.       Height = 184
  122.       BevelOuter = bvNone
  123.       Caption = 'Panel3'
  124.       TabOrder = 1
  125.       object Image3: TImage
  126.         Left = 0
  127.         Top = 0
  128.         Width = 129
  129.         Height = 184
  130.         Align = alClient
  131.         Picture.Data = {<image001.bmp>}
  132.         OnMouseMove = Image3MouseMove
  133.       end
  134.     end
  135.     object DLB: TDirectoryListBox
  136.       Left = 24
  137.       Top = 120
  138.       Width = 129
  139.       Height = 33
  140.       ItemHeight = 16
  141.       TabOrder = 2
  142.       Visible = False
  143.       OnChange = DLBChange
  144.     end
  145.   end
  146.   object flb1: TFileListBox
  147.     Left = 280
  148.     Top = 32
  149.     Width = 145
  150.     Height = 97
  151.     ItemHeight = 13
  152.     Mask = '*.bmp'
  153.     TabOrder = 0
  154.     Visible = False
  155.   end
  156.   object flb2: TFileListBox
  157.     Left = 24
  158.     Top = 160
  159.     Width = 129
  160.     Height = 169
  161.     Color = clTeal
  162.     Ctl3D = True
  163.     DragCursor = crCross
  164.     ItemHeight = 13
  165.     Mask = '*.mpg'
  166.     ParentCtl3D = False
  167.     TabOrder = 2
  168.     Visible = False
  169.   end
  170.   object Timer1: TTimer
  171.     Interval = 100
  172.     OnTimer = Timer1Timer
  173.     Left = 336
  174.     Top = 72
  175.   end
  176. end
  177.